﻿Imports FirebirdSql.Data
Imports FirebirdSql.Data.FirebirdClient
Imports System.Data

Public Class _cursoEspecializacao
    Inherits _DataBase

    Private _idCursoEspecializacao As Integer
    Private _dsCursoEspecializacao As String

    Public Property idCursoEspecializacao() As Integer
        Get
            Return _idCursoEspecializacao
        End Get
        Set(ByVal value As Integer)
            _idCursoEspecializacao = value
        End Set
    End Property

    Public Property dsCursoEspecizalizacao() As String
        Get
            Return _dsCursoEspecializacao
        End Get
        Set(ByVal value As String)
            _dsCursoEspecializacao = value
        End Set
    End Property

    Public Function consultaCursoEspecializacao() As DataSet

        conectaDb()
        consultaCursoEspecializacao = retornaDataSet(montaParametros("SP_CURSOESPECIALIZACAO_CONSULTA", "TODOS"))
        desconectaDb()

    End Function

    Public Sub consultaCursoEspecializacaoPorId()
        conectaDb()
        dr = retornaDataReader(montaParametros("SP_CURSOESPECIALIZACAO_CONSULTA", "ID"))
        With dr
            If .Read Then
                dsCursoEspecizalizacao = .Item("O_DS_CURSOESPECIALIZACAO")
            End If
        End With
        desconectaDb()
    End Sub

    Public Sub insereCursoEspecializacao()
        conectaDb()
        execSQLSemRetorno(montaParametros("SP_CURSOESPECIALIZACAO_CMD", "INSERIR"))
        desconectaDb()
    End Sub

    Private Function montaParametros(ByVal pNomeSP As String, ByVal pModo As String) As FbCommand

        With cmd
            .CommandText = pNomeSP
            With .Parameters
                .Clear()
                .Add("MODO", FbDbType.VarChar, 10).Value = pModo
                .Add("I_ID_CURSOESPECIALIZACAO", FbDbType.Integer).Value = idCursoEspecializacao
                .Add("I_DS_CURSOESPECIALIZACAO", FbDbType.VarChar, 60).Value = dsCursoEspecizalizacao
            End With
        End With
        Return cmd


    End Function




End Class
